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proc do_timers{} 

^ if { $ { : : VPBO.TIMERS^numelements} >0 ) { 

set DSGN_PARAM "timer -tsize 32 -psize 32 -psize 32 -peons '0' -pdmax 1 -nmr 
NMR -extm Y„N_MASK -nc r NCR -t 2 -areset 2 -0 TIMERNAME" 

setiO 

while {${ : ; VPBO.TlMERS.numelements > $1} { 

set DSGN„PARAM_COPY $DSGN_PARAM 

#-- if we have only one timer we make sure 

#~ that we do not use index elements 

if {${ : : VPBO.TIMERS_numelements} = = 1} { 

set devicename "timer" 

set tmpstr"" 

} else { 

set devicename "timer$i" 
set trapstr "Si" 

} 
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regsub -all "NMR" $DSGN_PARAM„CGPY [set 
::VPBOTIMERS$i.NUM_MATCH] DSGN_PARAM„COPY 

regsub -all "Y N„MASK" $DSGN.PARAM_COPY [set 
::VPBO.TIMERS$i.MATCH_INT] DSGN.PARAM.CO 

PY 

regsub -all "NMR" $DSGN_PARAM_COPY [set ::VPBO.TIMERS$i.NCR] 
DSGN_PARAM„COPY 

regsub -all *TIMERNAME" $DSGN_PARAM_COPY $ (devicename} 
DSGN_PARAM_COPY 
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lapperid : : libraiyjist "library $ {devicename} Jib; \nuse 
$ {devicename} Jib.$(devicenameLpkg.all; \n" 

lappend: : vpb_dev_name $ {devicename} 

lappend: : gate.count [list - n 'Timer $i " -g 6135 -sg " " -t Sy ] 
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lappened : : sgnl_name *'VPB Timer Sdevicename" 

lappened : : sgnLname "tmr$ {tmpstr}„pause I II 1 " 

lappened : : clk_dst„name *'ct_tmr${devicename}_pclk 1 ck_nbclk" 

setiinfo"" 

lappened iinfo "u„tmr$tmpstr 1 timerStmpstr I VPB Timer Stmpstr'* 

lappened iinfo "pclk I ct_tmr$ {tmpstr}„pclk 1 VPB Bus Clock" 

lappened iinfo "pstb I pstb I VPB Peripheral Strobe 

lappened iinfo "psel I pseLtnir${tmpstr} I VPB Peripheral Select" 

lappened iinfo "pwrite I pwrite I VPB Peripheral Write" 

lappened iinfo "pd I pd I VPB Data Bus (31:0)" 

if { [set : : VPBO.TIMERS$i.NCR] > 0 } { 

lappend : : assignjist " Tie off capture Inputs 
lappend : : assignjist "tmr$ {tmr$(tmpstr}_capture I (expr (($: ; LANGUAGE) = 
(LANG_VHDL ) ) ?{ (others =>logic„01) : {logic_0}] " 

lappend iinfo "capture I tnir${(tmpstr)_capture I Timer Capture Signals" 
lappened : : sgnl_name "tmr$ {tmpstr}_capmre I set : : VPBO.TIMERSSi.NCR] I 

if ( [set : : VPBO.TIMERS$i.NUM_MATCH] > 0} { 

lappened iinfo "nint I tmr${tmpstr} Jnt I Timer Interrupt. Active Low" 
lappened : : intr.src "${devicename}_nint" 

It { [set : : VPBO.TIMERSSi.NCR] > 0 / / [set : : VPBOTIMERS$i.NUM„MATCH] > 
lappened iinfo "pares / ct_tmr$(tmpstr)_pures i VPB Asynchronous Timer Reset' 
lappened iinfo "pa I pa(5 downto 0) 1 VPB Address Bus (5:0)" 
lappened : : rst„dst_name "rs„tnir$(tmpstr)_pnres 1 cg_nbcik" 

} else { 

lappened iinfo "pa I pa(4 downto 0) I VPB Address Bus (5:0)" 

lappend iinfo "pause I tmr$(tmpstr)_pause I Timer Pause" 
lappend : : assignjist *Tie off pause Inputs " 
lappend : : assignjist " tmr$(tmpstr).pause I logic^O" 
#- - Based on the number of match outputs, we create interrupt sources 
if {[set : : VPBO.TLMERSSi.MATCH.INT] = = 1 } { 
setj 0 

while { [set : : VPBO.TIMERS$i.NUM„MATCH] >Sj} ( 
lappend : : intr_src "${devicename}„mSj" 

lappend iinfo "m$j I tmr${tmpstr}_m$j I Timer $tmpstr External Match $j Output 
incrj 

} 

lappend iinfo "scantestmode I scantestmode I Scan Test Mode" 
lappend : : inst Jist $iinfo 
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proc create^chipcore { } { 

setccfid [open "$ : : WORK_DIR/S : : COMPOiSrENTNAME/chip/top/chipcore.v" 

# Module and port type declaration has already been written by padring.tcl 
foreach elem $ : : sgnl_naine { 
regsub { [ / 1] +$} Selem { ) elem 
set selem [split Selem * V " ] 
switch [llength $selem] { 

1 { puts $ccfid "S { : xomment} [string trim [lindex $selem 0] ]" } 

2 { set swidth [lindex Sselem 1] ; puts Sccfid [fonmat *' wire %7s %s" [expr 

($swi 

dth= =!)?{}: {\[[ expr $swidth-l] \:0 \]}] "string trim [lindex Sselem 0] ] ] } 

3 { set swidth {lindex $selem 1]; puts Sccfid [format " wire %7s %-40s ${: : 

comme 

nt) %s" [expr (Sswidth= =!)?{}: {\[ [ exprSswidth- 1 ] \: 0\]}] "string trim [lindex Sselem 
0]];" [strin 

g trim [lindex Sselem 2 ] ] ] } 
} 

} 

HG 6A 



puts Sccfid "S{ : : comment} Reset and Clock signals" 
foreach elem [ concat $ : : rst_dst_name $: : clk_dst_name] { 

set selem [split Selem *V " ] 

puts Sccfid [ccfid [format " wire %s; " [string trim [lindex Sselem 0] ] ] 

} 

puts Sccfid *^n[string repeat S: ; comment 30]" 
puts Sccfid "S : : comment Assign statements" 
puts Sccfid "\n[string repeat $: : comment 30] \n" 
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# Based on the assignjist, generate the HDL assign statements as required, 
foreach elem S : : assign Jist { 
regsub { [ /\t] + Selem { } elem 
set aelem [split Selem "] 
if { [llength Saelem]=l } { 

puts Sccfid "${ : : comment) [lindex Saelem 0]'* 
} else { 

if {{$::LANGUAGE)= = "LANG_VHDL"} { 

puts Sccfid [foimat " %15s <= %s; " [string trim [lindex $aelem 0 ] ] 
[string trim [lindex Saelem 1 ]]] 
) else { 

puts Sccfid [format " assign %15s = %s; *' [string trim [lindex 
Saelem 0 ] ] [string trim [lindex Saelem 1]]] 
} 

} 

} 
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proc create__chipcore { } { 

set ccfid [open "S : : WORK_DIR/ S : : COMPONENTNAME/chip/top/chipcore.v'* 

# Module and port type declaration has already been written by padring.tcl 

# Based on the sgnLname list, which contains all the internal signals 

# that must be generated for proper connectively, create the actual 

# VHDL or Verilog code that will perform that task. 

foreach elem $ : : sgnl_name { 



foreach iinfo $: : instjist { ' 
set first 1 
set istr " " 

foreach pmap $iinfo { 

regsub -all { [ \t] / [ \t]* } $pmap {/ } pmap 
set pelem [split Spmap {/ }] 
if { $first } { 
set first 0 

append istr "\n${ : : comment) (string repeat $ {: : comment} 37] \n" 
append istr **${ ;: comment} [lindex $pelem 21\n" 
append istr "${ : : conunent) (string repeat S {: : conmient} 37] W* 
append istr ** [lindex $pelem 1 ] [lindex Spelem 0] (\n" 
} else { 

set formal (lindex Spelem 0] 
set actual [lindex $pelem 1] 

if { ($ : : LANGUAGE} = = "LANG.VERILOG"} ( 
regsub -all {\ ( } Sactual {[ ) actual 
regsub -all {\{} $actual {]) actual 
regsub {open} Sactual { } actual 
regsub - all "downto " $actual " actual 
regsub {\(} Sformal {[} formal 
regsub {\)} Sformal {]} formal 
regsub " downto Sformal formal 

append istr " ,$formal (Sactual) . \n" 

} 

regsub {, \n$} $istr " ) ; " istr 
puts $ccfid $istr 

puts $ccfid '*\n\nendmodule \n" 
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